home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 12 / 012.d81 / july 4th (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  8.7 KB  |  271 lines
  1. 1 gosub60000
  2. 10 rem  have a safe and sane july 4th
  3. 20 rem  ** by - m. n. carswell
  4. 30 rem  ** 486 s. steel bridge rd. s.e.
  5. 40 rem  ** eatonton, ga. 31024
  6. 50 rem  ** sound by daughter judy **
  7. 51 restore
  8. 52 sid=54272:fort=0to24:pokesid+t,0:next
  9. 53 pokesid+24,15:pokesid+5,85:pokesid+6,85
  10. 54 ff=10
  11. 55 print"[147][144]":poke53281,1
  12. 56 print"one moment please....."
  13. 57 print:print"please turn your volume up....."
  14. 60 rem sprite data
  15. 65 v=53248:poke2040,192:poke2041,193
  16. 70 pokev+39,1:pokev+40,1
  17. 75 pokev+29,3:pokev+23,3
  18. 80 pokev+16,0:pokev,160:pokev+2,160
  19. 85 pokev+1,117:pokev+3,117
  20. 90 forrd=0to127:read da:poke12288+rd,da:next
  21. 100 print"[147]"
  22. 110 n$= "             are you ready?"
  23. 120 for a=1 to len(n$)
  24. 130 print"[147]":
  25. 140 print"":print right$(n$,a):gosub5000
  26. 150 nexta
  27. 160 for j=1 to 500:next:pokesid+4,0:forj=1to1500:next
  28. 162 poke198,0:wait198,1:getjj$:ifjj$<>"y"then162
  29. 165 print"[147]"
  30. 170 n$= "             then lets go"
  31. 180 for a=1 to len(n$)
  32. 185 print"[147]"
  33. 190 print"":print right$(n$,a):gosub6000
  34. 200 nexta
  35. 210 for j=1 to 500:next:pokesid+4,0:forj=1to1500:next
  36. 490 print"[147]"
  37. 499 rem start color bars
  38. 500 poke 53280,1:poke 53281,14
  39. 510 for j=9to 0step-1:poke1229+j,160:poke55501+j,1:gosub5000:next
  40. 520 for j=0to9:poke 1269+j,160:poke 55541+j,1:gosub5000:next
  41. 530 for j=80 to 0step-40:poke1199+j,42:poke 55471 +j,6:gosub6000:next
  42. 540 for j=10to0 step-1:poke 1188+j,42:poke 55460+j,6:gosub6000:next
  43. 550 for j=0to80 step40:poke1228+j,42:poke55500+j,6:gosub6000:next
  44. 560 for j=0to 10step1:poke1309+j,42:poke 55581+j,6:gosub6000:next
  45. 570 for j=160to0step-40:poke1160+j,160:poke 55432+j,2:gosub5000:next
  46. 580 for j=12to0step-1:poke1147+j,160:poke 55419+j,2:gosub5000:next
  47. 590 for j =0 to 160step40:poke1187+j,160:poke55459+j,2:gosub5000:next
  48. 600 for j=0 to 12 step1:poke1348+j,160:poke55620+j,2:gosub5000:next
  49. 610 for j=240to0step-40:poke1121+j,160:poke 55393+j,1:gosub6000:next
  50. 620 for j=14to0step-1:poke1106+j,160:poke55378+j,1:gosub6000:next
  51. 630 for j=0to240step40:poke1146+j,160:poke55418+j,1:gosub6000:next
  52. 640 for j=0to14step1:poke1387+j,160:poke55659+j,1:gosub6000:next
  53. 650 for j=320 to 0 step -40:poke1082+j,42:poke55354+j,6:gosub5000:next
  54. 660 for j=16to0step-1:poke1065+j,42:poke55337+j,6:gosub5000:next
  55. 670 for j=0to320 step40:poke1105+j,42:poke55377+j,6:gosub5000:next
  56. 680 for j=0 to16 step1:poke1426+j,42:poke55698+j,6:gosub5000:next
  57. 690 for j=400 to 0 step-40:poke1043+j,160:poke55315+j,2:gosub6000:next
  58. 700 for j=18to0step-1:poke1024+j,160:poke55296+j,2:gosub6000:next
  59. 710 for j=0 to400 step40:poke1064+j,160:poke55336+j,2:gosub6000:next
  60. 720 for j=0to38step1:poke1465+j,160:poke55737+j,2:gosub5000:next
  61. 730 for j=400to40step-40:poke1063+j,160:poke55335+j,2:gosub5000:next
  62. 740 for j=19to0step-1:poke1044+j,160:poke55316+j,2:gosub5000:next
  63. 750 for j=0to400step40:poke1084+j,160:poke55356+j,2:gosub5000:next
  64. 760 for j=0to17step1:poke1445+j,42:poke55717+j,6:gosub6000:next
  65. 770 for j=320to0step-40:poke1102+j,42:poke55374+j,6:gosub6000:next
  66. 780 for j=17to0step-1:poke1085+j,42:poke55357+j,6:gosub6000:next
  67. 790 for j=0to280 step40:poke1125+j,42:poke55397+j,6:gosub6000:next
  68. 800 for j=0to15step1:poke1406+j,160:poke55678+j,1:gosub5000:next
  69. 810 for j=240to0step-40:poke1141+j,160:poke55413+j,1:gosub5000:next
  70. 820 for j=14to0step-1:poke1126+j,160:poke55398+j,1:gosub5000:next
  71. 830 for j=0to200step40:poke1166+j,160:poke55438+j,1:gosub5000:next
  72. 840 forj=0to13step1:poke1367+j,160:poke55639+j,2:gosub6000:next
  73. 850 for j=160 to0step-40:poke1180+j,160:poke55452+j,2:gosub6000:next
  74. 860 for j=13 to 1step-1:poke1166+j,160:poke55438+j,2:gosub6000:next
  75. 870 for j=0to120step40:poke1207+j,160:poke55479+j,2:gosub6000:next
  76. 880 forj=0to11step1:poke1328+j,42:poke55600+j,6:gosub5000:next
  77. 890 for j=80to0step-40:poke1219+j,42:poke55491+j,6:gosub5000:next
  78. 900 for j=11to1step-1:poke1207+j,42:poke55479+j,6:gosub5000:next
  79. 910 for j=0to80step40:poke1248+j,42:poke55520+j,6:gosub5000:next
  80. 920 for j=0to9step1:poke1289+j,160:poke55561+j,1:gosub6000:next
  81. 930 for j=9to0step-1:poke1249+j,160:poke55521+j,1:gosub6000:next
  82. 940 for j=0 to9step1:poke1809+j,160:poke56081+j,1:gosub6000:next
  83. 950 for j=9to0step-1:poke1769+j,160:poke56041+j,1:gosub6000:next
  84. 960 for j=0to80step40:poke1768+j,42:poke56040+j,6:gosub5000:next
  85. 970 for j=1 to 11step1:poke1848+j,42:poke56120+j,6:gosub5000:next
  86. 980 for j=80to0step-40:poke1739+j,42:poke56011+j,6:gosub5000:next
  87. 990 for j=11 to0step-1:poke1728+j,42:poke56000+j,6:gosub5000:next
  88. 1000 for j=0to160step40:poke1727+j,160:poke55999+j,2:gosub6000:next
  89. 1010 for j=1to13step1:poke1887+j,160:poke56159+j,2:gosub6000:next
  90. 1020 for j=160 to0step-40:poke1700+j,160:poke55972+j,2:gosub6000:next
  91. 1030 for j=13 to0step-1:poke1687+j,160:poke55959+j,2:gosub6000:next
  92. 1040 for j=0to240 step40:poke1686+j,160:poke55958+j,1:gosub5000:next
  93. 1050 for j=0to14 step1:poke1927+j,160:poke56199+j,1:gosub5000:next
  94. 1060 forj=240to0step-40:poke1661+j,160:poke55933+j,1:gosub5000:next
  95. 1070 for j=14to0step-1:poke1646+j,160:poke55918+j,1:gosub5000:next
  96. 1080 for j=0to320step40:poke1645+j,42:poke55917+j,6:gosub6000:next
  97. 1090 for j=0to16step1:poke1966+j,42:poke56238+j,6:gosub 6000:next
  98. 1100 for j=320to0step-40:poke1622+j,42:poke55894+j,6:gosub6000:next
  99. 1110 for j=16 to0step-1:poke1605+j,42:poke55877+j,6:gosub6000:next
  100. 1120 for j=0to400step40:poke1604+j,160:poke55876+j,2:gosub5000:next
  101. 1130 for j=0to18step1:poke2005+j,160:poke56277+j,2:gosub5000:next
  102. 1140 for j=400to0step-40:poke1583+j,160:poke55855+j,2:gosub5000:next
  103. 1150 for j=38to0step-1:poke1544+j,160:poke55816+j,2:gosub5000:next
  104. 1160 for j=0to400step40:poke1584+j,160:poke55856+j,2:gosub6000:next
  105. 1170 for j=0to18step1:poke1985+j,160:poke56257+j,2:gosub6000:next
  106. 1180 for j=360to0step-40:poke1603+j,160:poke55875+j,2:gosub6000:next
  107. 1190 for j=17to0step-1:poke1585+j,42:poke55857+j,6:gosub5000:next
  108. 1200 for j=0to320step40:poke1625+j,42:poke55897+j,6:gosub5000:next
  109. 1210 for j=0to16step1:poke1946+j,42:poke56218+j,6:gosub5000:next
  110. 1220 for j=280to0step-40:poke1642+j,42:poke55914+j,6:gosub5000:next
  111. 1230 for j=15to0step-1:poke1626+j,160:poke55898+j,1:gosub6000:next
  112. 1240 for j=0to240step40:poke1666+j,160:poke55938+j,1:gosub6000:next
  113. 1250 for j=0to14 step1:poke1907+j,160:poke56179+j,1:gosub6000:next
  114. 1260 for j=200to0step-40:poke1681+j,160:poke55953+j,1:gosub6000:next
  115. 1270 for j=13to0step-1:poke1667+j,160:poke55939+j,2:gosub5000:next
  116. 1280 for j=0to160step40:poke1707+j,160:poke55979+j,2:gosub5000:next
  117. 1290 for j=0to12step1:poke1868+j,160:poke56140+j,2:gosub5000:next
  118. 1300 for j=120to0step-40:poke1720+j,160:poke55992+j,2:gosub5000:next
  119. 1310 for j=11to0step-1:poke1708+j,42:poke55980+j,6:gosub6000:next
  120. 1320 for j=0to80step40:poke1748+j,42:poke56020+j,6:gosub6000:next
  121. 1330 for j=0to10step1:poke1829+j,42:poke56101+j,6:gosub6000:next
  122. 1340 for j=40to0step-40:poke1759+j,42:poke56031+j,6:gosub6000:next
  123. 1350 forj=9to0step-1:poke1749+j,160:poke56021+j,1:gosub5000:next
  124. 1360 for j=0to9step1:poke1789+j,160:poke56061+j,1:gosub5000:next
  125. 1370 forj=0to39step1:poke1504+j,160:poke55776+j,1:gosub6000:next
  126. 1380 poke53281,1
  127. 1385 forj=1to500:next:forj=4to18step7:pokesid+j,0:next
  128. 1390 print"swimmingboating"
  129. 1400 print"hikingcamping
  130. 1410 [153]"fishingracing"
  131. 1420 [153]"runningskiing"
  132. 1425 [129]j[178]1[164]500:[130]
  133. 1430 [143] have a safe july 4th
  134. 1440 [153]""
  135. 1450 [153]""
  136. 1460 a$[178]"have a safe and sane july 4th"
  137. 1470 a[178][195](a$):[139]a[173]2[179][177] [181](a[173]2) [167] a$[178]" "[170]a$:[137] 1470
  138. 1480 [129] i[178]1[164]a[173]2
  139. 1490 [153] [163]20[171]i);[200](a$,i);[201](a$,i):[141]7000
  140. 1500 [153]"on";
  141. 1510 [129] zz[178]1[164]300:[130] zz
  142. 1520 [130] i
  143. 1532 [129] x[178]1[164]2000:[130]
  144. 1535 [141] 4000
  145. 1536 [129]j[178]1[164]500:[130]
  146. 1537 [153]"load"
  147. 1538 [151]53280,1:[151]53281,14
  148. 2500 [143] ***ending***
  149. 2600 [151]sid[170]5,85:[151]sid[170]6,85
  150. 2601 [151]v[170]21,1
  151. 2605 [129]x[178]1[164]3:[135]dd(x):[130]
  152. 2610 [151]sid[170]24,15
  153. 2615 [129]t[178]1[164]18:[153]:[130]
  154. 2616 [153][163]12)"have a nice day!"
  155. 2617 [129]x[178]1[164]500:[130]
  156. 2620 [129] a[178]1[164]15:[141]6000:[151]sid[170]24,15[171]a
  157. 2625 [139][181](a[173]2)[178]a[173]2[167][151]v[170]21,2:[137]2627
  158. 2626 [151]v[170]21,1
  159. 2627 [129]t[178]1[164]50:[130]
  160. 2630 [129] b[178]1[164]3
  161. 2640 [139]b[178]2[167] [141]6000:[137] 2660
  162. 2650 [141] 5000
  163. 2660 [151] 53280,dd(b)
  164. 2670 [129] c[178]1[164]50:[130]
  165. 2680 [130] b
  166. 2700 [130] a:[129]x[178]1[164]1500:[130]:[151]v[170]21,0
  167. 2710 [129] x[178]0[164]24:[151]sid[170]x,0:[130]
  168. 2730 [151]53280,6:[151]53281,1
  169. 2740 [153]"***press 'y' to run again.***":[151]198,0
  170. 2750 [161]a$:[139]a$[178]""[167] 2750
  171. 2760 [139] a$[178]"y" [167] [137] 51
  172. 2770 [153]"load":[151]53280,14:[151]53281,6:[153] [199](154)
  173. 2780 [137]63000
  174. 3990 [143]
  175. 3999 [143] play song
  176. 4000 [129]cl[178]0[164]24:[151]sid[170]cl,0:[130]
  177. 4005 [151]sid[170]23,2:[151]sid[170]22,1
  178. 4006 [151]sid[170]3,4
  179. 4010 [151]sid[170]24,31:[151]sid[170]5,9:[151]sid[170]6,63:[151]sid[170]12,85:[151]sid[170]13,255
  180. 4020 [151]sid[170]19,24:[151]sid[170]20,255
  181. 4030 [135]d,l1,h1,l2,h2,l3,h3
  182. 4035 [139]d[178][171]1[167]4100
  183. 4040 [151]sid,l1:[151]sid[170]1,h1:[151]sid[170]7,l2:[151]sid[170]8,h2
  184. 4050 [151]sid[170]14,l3:[151]sid[170]15,h3
  185. 4060 [151]sid[170]4,65:[151]sid[170]11,33:[151]sid[170]18,17
  186. 4070 [129]j[178]1[164]d[172]3:[130]:[129]cl[178]4[164]18[169]7:[151]sid[170]cl,0:[130]:[129]j[178]1[164]d[173]2:[130]
  187. 4080 [137]4030
  188. 4100 [129]cl[178]0[164]24:[151]sid[170]cl,0:[130]:[142]
  189. 4999 [143] rising scale
  190. 5000 [151]sid,ff:[151]sid[170]1,ff:[151]sid[170]4,17
  191. 5020 ff[178]ff[170].5:[142]
  192. 5999 [143] falling scale
  193. 6000 [151]sid,ff:[151]sid[170]1,ff:[151]sid[170]4,33
  194. 6020 ff[178]ff[171].5:[142]
  195. 7000 [143] gong
  196. 7005 [151]sid[170]5,12:[151]sid[170]6,9:[151]sid[170]24,15
  197. 7010 [151]sid[170]1,10:[151]sid[170]15,25:[151]sid[170]4,21
  198. 7015 [129]t[178]1[164]200:[130]:[151]sid[170]4,20
  199. 7020 [142]
  200. 8000 [143] sprite data
  201. 8001 [131]0,60,0,1,195,128,7,0,224,28,0,56
  202. 8002 [131]48,0,12,96,0,6,97,129,134,98,66,70
  203. 8003 [131]193,129,131,192,0,3,192,0,3,192,0,3
  204. 8004 [131]192,0,3,98,0,70,99,0,198,96,195,6
  205. 8005 [131]48,60,12,28,0,56,7,0,224,1,195,128,0,60,0,0
  206. 8006 [131]0,60,0,1,195,128,7,0,224,28,0,56
  207. 8007 [131]48,0,12,96,0,6,96,1,134,99,194,70
  208. 8008 [131]193,129,131,192,0,3,192,0,3,192,0,3
  209. 8009 [131]192,0,3,98,0,70,99,0,198,96,195,6
  210. 8010 [131]48,60,12,28,0,56,7,0,224,1,195,128,0,60,0,0
  211. 8100 [143] song data
  212. 8101 [131]100,96,22,195,16,48,11
  213. 8102 [131]100,96,22,195,16,48,11
  214. 8103 [131]100,30,25,209,18,119,7
  215. 8104 [131]150,31,21,195,16,97,8
  216. 8105 [131]50,96,22,209,18,97,8
  217. 8106 [131]100,30,25,31,21,97,8
  218. 8107 [131]100,49,28,96,22,48,11
  219. 8108 [131]100,49,28,96,22,104,9
  220. 8109 [131]100,223,29,30,25,119,7
  221. 8110 [131]150,49,28,96,22,97,8
  222. 8111 [131]50,30,25,31,21,97,8
  223. 8112 [131]100,96,22,24,14,104,9
  224. 8113 [131]100,30,25,209,18,119,7
  225. 8114 [131]100,96,22,195,16,97,8
  226. 8115 [131]100,31,21,143,12,97,8
  227. 8116 [131]300,96,22,195,16,48,11
  228. 8117 [131]100,135,33,49,28,48,11
  229. 8118 [131]100,135,33,49,28,24,14
  230. 8119 [131]100,135,33,49,28,195,16
  231. 8120 [131]150,135,33,49,28,48,11
  232. 8121 [131]50,223,29,30,25,48,11
  233. 8122 [131]100,49,28,96,22,48,11
  234. 8123 [131]100,223,29,30,25,97,8
  235. 8124 [131]100,223,29,30,25,143,10
  236. 8125 [131]100,223,29,30,25,143,12
  237. 8126 [131]150,223,29,30,25,97,8
  238. 8127 [131]50,49,28,96,22,97,8
  239. 8128 [131]100,30,25,31,21,97,8
  240. 8129 [131]100,49,28,96,22,48,11
  241. 8130 [131]50,223,29,96,22,209,18
  242. 8131 [131]50,49,28,96,22,195,16
  243. 8132 [131]50,30,25,96,22,239,14
  244. 8133 [131]50,96,22,96,22,24,14
  245. 8134 [131]150,49,28,96,22,48,11
  246. 8135 [131]50,223,29,31,21,143,12
  247. 8136 [131]100,135,33,96,22,24,14
  248. 8137 [131]50,162,37,96,22,239,14
  249. 8138 [131]50,223,29,96,22,209,18
  250. 8139 [131]100,49,28,96,22,195,16
  251. 8140 [131]100,30,25,31,21,97,8
  252. 8141 [131]300,96,22,24,14,48,11
  253. 8142 [131]-1,-1,-1,-1,-1,-1,-1
  254. 8199 [143] ending data
  255. 8200 [131] 1,2,6
  256. 60000 t$[178]"                         ":c[178]0:c$[178]"":[153]"load":[151]53281,0
  257. 60030 [153][166]7)""t$:[153][166]7)" (NULL)afe and (NULL)ane mid$uly 4th  wait"
  258. 60051 [153][166]7)""t$:[153]:[153][163]18)"by"
  259. 60060 [153]:[153][166]13)"(NULL).(NULL). lenarswell"
  260. 60070 [153]:[153][166]12)"lenopyright 1985"
  261. 60080 [153]:[153]:[153]:[153]"     (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) is not public domain."
  262. 60090 [153]:[153]"  (NULL)lease respect the author's rights."
  263. 60100 [153]:[153]"      (NULL)ress space bar to continue."
  264. 60110 [129]cc[178]1[164]48:[161]k$:[139]k$[178]" "[167]60130
  265. 60120 [139]cc[178]1[167][153][202](c$,c[170]2,1)"onon";:c[178][168](c)
  266. 60125 [130]:[137]60100
  267. 60130 [153]c$:[142]
  268. 63000 [143]    connect back to l.s.
  269. 63002 [153]"loadload"[199](34)"payload"[199](34)",8":[153]"run"
  270. 63004 [151]198,0:[151]631,13:[151]632,13:[151]198,2:[128]
  271.